library(Matrix)
library(ggplot2)
library(microbenchmark)
library(profvis)
We use a specific gene set generated from susie-gsea-0806 and investigate the speed of sparse version SuSiE on this GSEA data set.
ygsea.sun = readRDS('sun_ygsea.rds')
Xgsea.sun = readRDS('sun_Xgsea.rds')
Xgsea.sun.sparse = Xgsea.sun
Xgsea.sun.dense = as.matrix(Xgsea.sun)
profvis to evaluate computational time line by lineprofvis({
susie.dense.fit = susie(Xgsea.sun.dense,ygsea.sun)
})